home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / P-New PET 1983 / (p)l2.d64 / scan.l < prev    next >
Text File  |  2007-04-28  |  636b  |  15 lines
  1. 9000 //
  2. 9010 PROC SCAN(REF C$) CLOSED
  3. 9020   //                                  QUICK SCAN OF KEYBOARD
  4. 9030   // NOT NEEDED IN VERSION 1.02 WHERE KEY$ DOES THE SAME THING
  5. 9040   BUFFER'COUNT'LOC:=158
  6. 9050   BUFFER'LOC:=623
  7. 9060   A:=PEEK(BUFFER'COUNT'LOC) //        NUMBER OF KEYS HIT
  8. 9070   IF A THEN //                        AT LEAST ONE KEY HIT
  9. 9080     POKE BUFFER'COUNT'LOC,A-1 //      DECREMENT COUNT
  10. 9090     C$:=CHR$(PEEK(BUFFER'LOC-1+A)) // LAST KEY HIT CHARACTER
  11. 9100   ELSE  //                            NO KEY HIT
  12. 9110     C$:=CHR$(0) //                    SAME AS WITH KEY$
  13. 9120   ENDIF 
  14. 9130 ENDPROC SCAN
  15.